home *** CD-ROM | disk | FTP | other *** search
/ Aminet 29 / Aminet 29 (1999)(Schatztruhe)[!][Feb 1999].iso / ArtEffect / ArtEffect_1.5_Classic / ArtEffect Install-Script next >
Text File  |  1999-01-21  |  18KB  |  587 lines
  1. ;*************************************************************************
  2. ;*  ArtEffect Installer Version 1.x                                      *
  3. ;*                                                                       *
  4. ;*  Installer Revision by Jürgen Haage                                   *
  5. ;*  ©1996-99 HAAGE & PARTNER Computer GmbH                                  *
  6. ;*                                                                       *
  7. ;*  If you have any installer questions please let us know!              *
  8. ;*                                                                       *
  9. ;*************************************************************************
  10. ;
  11. ; $VER: ArtEffect V1.5 Install Version 1.2 (15 Jan 99)
  12.  
  13. (complete 0)
  14.  
  15. ; Die Versionsnummer und das Erstellungs-Datum der hier installierten
  16. ; Versionen.
  17.  
  18. (set stw-version "1.5 Classic")
  19. (set stw-date "(15 Jan 99)")
  20.  
  21. ;====================================================================
  22. ; Initialisierungen
  23.  
  24. (set @default-dest "")
  25.  
  26. (set os-version (/ (getversion) 65536))
  27. (set os-13 (< os-version 36))
  28. (set os-20 (>= os-version 36))
  29. (set os-21 (>= os-version 38))
  30.  
  31. (set totalmem (database "total-mem")) ; Diese schöne Funktion vereinfacht einiges
  32.  
  33. (set size-komplett      3000000)
  34.  
  35. ;====================================================================
  36. ; Init (English)
  37.  
  38.     (set #yeskey "Yes")
  39.     (set #nokey "No")
  40.  
  41.     (set #wrongos "\n Sorry, you will need OS 3.0 or better!\n")
  42.  
  43.     (set #welcome (cat "\nWelcome to the installation of \n\n"
  44.          "ArtEffect" stw-version " of "stw-date"\n\n"
  45.          "This script copies all the files of ArtEffect "
  46.          "and the BGUI-Library onto your hard disk "
  47.          "and adds an Assign.\n\n\n"
  48.          "© Copyright 1996-99 HAAGE & PARTNER Computer GmbH"))
  49.  
  50.     (set #oldversion (cat "\n"
  51.         "There is another version of ArtEffect on your "
  52.         "hard disk!\n"
  53.         ))
  54.  
  55.     (set #oldversion_help (cat "\n"
  56.         "Please choose the old drawer to Update your \n"
  57.         "old version!                                 "
  58.         ))
  59.     (set #new    "New installation")
  60.     (set #update "Update old version")
  61.     (set #remove "Deinstallation - deletes ArtEffect")
  62.  
  63.     (set #chose_path (cat
  64.         "Please select a device or a drawer for your "
  65.         "installation of ArtEffect.\n\n"
  66.         "A new drawer named \"ArtEffect\" will be created "
  67.         "automatically!"
  68.         ))
  69.  
  70.     (set #chose_path_help (cat "\n"
  71.         "Select 'Show drives' to get an overview of all "
  72.         "devices.\n"
  73.         "Please select one of the devices on top of "
  74.         "the list.\n"
  75.         "Typical names are f.i. \"WORK:\", \"HD0:\" or \"DH0:\" "
  76.         "Do not use \"DF0:\", \"DF1:\", \"DF2:\", "
  77.         "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
  78.         "\"WB_2.x:\", \"System3.0:\" or \"WB_3.x:\"! \n\n"
  79.         "A new drawer named \"ArtEffect\" will be created "
  80.         "automatically!\n\n"
  81.         @askdir-help))
  82.  
  83.     (set #auswahlhilfe (cat "\n"
  84.         "There is an old version of ArtEffect on your "
  85.         "hard disk !\n\n"
  86.         "Select \"Yes\" to overwrite the old files. "
  87.         "Otherwise select \"No\" !\n"
  88.         ))
  89.  
  90.     (set #wrk_justamoment (cat "\n"
  91.         "This will last some time !\n"
  92.         "Please stay tuned ...\n"
  93.         ))
  94.  
  95.     (set #wrk_guidecrunch (cat "\n"
  96.         "Unpacking files ...\n\n"
  97.         "ArtEffect - Image Processing & Natural Painting!\n\n"
  98.         #wrk_justamoment
  99.         ))
  100.  
  101.     (set #decrunch_error (cat "\n\n"
  102.         "Error while unpacking files!\n\n"
  103.         "Maybe there is not enough free space on your "
  104.         "hard disk or some files are protected from "
  105.         "deleting or writing!\n"
  106.         ))
  107.  
  108.     (set #prp-copy-lib
  109.         "Copying BGUI-LIBRARY\n")
  110.     (set #hlp-copy-lib
  111.         "BGUI-Library is needed by ArtEffect !")
  112.  
  113.     (set #prp-insert-disk1 (cat "\n"
  114.         "\n\nPlease insert Disk 1 \"ArtEffect_Disk1\" "
  115.         "in any drive now!"
  116.         ))
  117.  
  118.     (set #prp-insert-disk2 (cat "\n"
  119.         "\n\nPlease insert Disk 2 \"ArtEffect_Disk2\" "
  120.         "in any drive now!"
  121.         ))
  122.  
  123.  
  124.  
  125. (if (= @language "deutsch") (
  126.  
  127.     (set #yeskey "Ja")
  128.     (set #nokey "Nein")
  129.  
  130.     (set #wrongos "\n Sorry, dieses Paket benoetigt mind. OS 3.0.\n")
  131.  
  132.     (set #welcome (cat      "\nWillkommen bei der Installation von \n\n"
  133.          "ArtEffect" stw-version " vom "stw-date"\n\n"
  134.          "Dieses Skript entpackt ArtEffect, kopiert "
  135.          "die BGUI-Library auf Ihre Festplatte "
  136.          "und erzeugt einen Assign.\n\n\n"
  137.          "© Copyright 1996-99 HAAGE & PARTNER Computer GmbH"))
  138.  
  139.     (set #oldversion (cat "\n"
  140.         "Auf Ihrer Festplatte befindet sich bereits "
  141.         "eine Installation von ArtEffect!\n"
  142.         ))
  143.  
  144.     (set #oldversion_help (cat "\n"
  145.         "Wählen Sie einfach die bereits vorhandene "
  146.         "Schublade an, wenn Sie ihr altes System "
  147.         "aktualisieren möchten!"
  148.         ))
  149.     (set #new    "Neu installieren")
  150.     (set #update "Update über bisherige Version installieren")
  151.     (set #remove "Deinstallation - ArtEffect entfernen")
  152.  
  153.     (set #chose_path (cat
  154.         "Auswahl des Pfades für die Installation.\n"
  155.         "Bitte wählen Sie ein Laufwerk oder ein Verzeichnis!\n"
  156.         "Eine Schublade \"ArtEffect\" wird automatisch erzeugt.                                "
  157.         ))
  158.  
  159.     (set #chose_path_help (cat  "\n"
  160.         "Sie können über das Symbol 'Laufwerke anz.' "
  161.         "(bzw. 'Show drives') eine Übersicht über alle "
  162.         "Laufwerke Ihres Amiga anfordern; aus dieser "
  163.         "Übersicht sollten Sie nur die oberen, nicht "
  164.         "farblich gekennzeichneten Einträge auswählen. \n"
  165.         "Typische sinnvolle Namen sind z.B. \"WORK:\", "
  166.         "\"HD0:\" oder \"DH0:\" nicht verwenden sollten "
  167.         "Sie Namen wie \"DF0:\", \"DF1:\", \"DF2:\", "
  168.         "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
  169.         "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"! \n\n"
  170.         "ArtEffect kann nur in eine Schublade nicht aber "
  171.         "auf eine Partition direkt installiert werden! \n"
  172.         "Wenn Sie also nur ein Laufwerk für die "
  173.         "Installation auswählen, wird Ihnen eine "
  174.         "Fehlermeldung angezeigt!\n\n"
  175.         @askdir-help))
  176.  
  177.     (set #auswahlhilfe (cat "\n"
  178.         "Auf Ihrer Festplatte befindet sich bereits "
  179.         "eine Version der Datei die installiert werden "
  180.         "soll.\n\n"
  181.         "Wählen Sie \"Ja\", wenn Sie die alte Datei mit "
  182.         "der neuen überschreiben möchten. "
  183.         "Anderenfalls wählen Sie bitte \"Nein\"!\n"
  184.         ))
  185.  
  186.     (set #wrk_justamoment (cat "\n"
  187.         "Das dauert eine geraume Zeit.\n"
  188.         "Bitte haben Sie etwas Geduld!\n"
  189.         ))
  190.  
  191.     (set #wrk_guidecrunch (cat "\n"
  192.         "Entpacke die Dateien...\n\n"
  193.         "ArtEffect - Bildbearbeitung und natürliches Malen!\n\n"
  194.         #wrk_justamoment
  195.         ))
  196.  
  197.     (set #decrunch_error (cat "\n\n"
  198.         "Fehler beim Entpacken!\n\n"
  199.         "Stellen Sie bitte sicher, daß Ihre Festplatte "
  200.         "ausreichend Speicherkapazität hat, und, falls "
  201.         "die Dateien bereits vorhanden sind diese nicht "
  202.         "Lösch- oder Schreibgeschützt sind.\n"
  203.         ))
  204.  
  205.     (set #prp-copy-lib
  206.         "Kopiere die BGUI-LIBRARY\n")
  207.     (set #hlp-copy-lib
  208.         "Ohne die aktuelle Version der BGUI-Library, funktioniert nichts!")
  209.  
  210.     (set #prp-insert-disk1 (cat "\n"
  211.         "\n\nBitte legen Sie nun die Diskette 1 \"ArtEffect_Disk1\" "
  212.         "in ein beliebiges Laufwerk ein!"
  213.         ))
  214.  
  215.     (set #prp-insert-disk2 (cat "\n"
  216.         "\n\nBitte legen Sie nun die Diskette 2 \"ArtEffect_Disk2\" "
  217.         "in ein beliebiges Laufwerk ein!"
  218.         ))
  219.  
  220. ))
  221.  
  222. ; ----------------------------- Prozeduren ------------------------------
  223.  
  224. (Procedure Make_Folder
  225.     (
  226.     (set folder (tackon folder "ArtEffect"))
  227.         (if (= (exists folder) 0)
  228.             (
  229.             (makedir folder (infos))
  230.             )
  231.             (
  232.             (set update 1)        ; // Doch schon vorhanden!
  233.             )
  234.         )
  235.     )
  236. )
  237.  
  238. ; // Die Pfadnamen der einzelnen Quell-Dateien.
  239. (set source-more                    "C/More")
  240. (set source-lhx                     "C/LhA")
  241. (set source-Guide                   "Readme")
  242.  
  243. (if (= @language "deutsch") (
  244.    (set source-Guide                   "LIESMICH")
  245. ))
  246.  
  247. (set archive-ArtEffect1            "ARTEFFECT1.LHA")
  248. (set archive-ArtEffect2            "ARTEFFECT2.LHA")
  249. (set archive-ArtEffectBrushes      "Brushes.English.Lha")
  250.  
  251. ;=====================================================================================
  252. ; Beginn der Installation
  253. ;=====================================================================================
  254.  
  255. ; // needs OS 3.0 !!!
  256.  
  257. (if (< (/ (getversion) 65536) 39)
  258.  
  259.     (
  260.         (message #wrongos)
  261.         (exit (quiet))
  262.     )
  263. )
  264.  
  265. ; Intro
  266.  
  267.  
  268. (message #welcome)
  269. (welcome)
  270.  
  271.  
  272. (complete 5)
  273.  
  274. ; // Alte Version prüfen und entsprechende Abfrage ausgeben!--------------------------------------------
  275.  
  276. (set update   0)
  277.  
  278. (set act-user-level @user-level)
  279. (user 1)
  280.  
  281. (set folder "WORK:")
  282.  
  283. (if (<> update 0)  ; // altes Assign benutzen wenn update oder remove
  284.     (
  285.         (set folder (getassign "ArtEffect"))
  286.     )
  287. )
  288.  
  289. (user act-user-level)
  290.  
  291. (if (= update 0)
  292.     (
  293.     (set ok 0)
  294.         (while (not ok)
  295.             (set folder
  296.                 (askdir
  297.                 (prompt #chose_path)
  298.                 (help #chose_path_help)    ; // Auswahl Hilfetext
  299.                 (default folder)
  300.                 (disk)
  301.                 )
  302.             )
  303.  
  304.             (Make_Folder)    ; // Automatisch neues Verzeichnis anlegen!
  305.  
  306.     (set #dir_error (cat  "\n"
  307.         "Your selection \"" folder "\" is not a valid device or drawer!\n\n"
  308.         "Select 'Show drives' to get an overview of all "
  309.         "devices available on your Amiga.\n"
  310.         "Please select one of the devices on top of the list.\n"
  311.         "Typical names are f.i. \"WORK:\", \"HD0:\" or \"DH0\" "
  312.         "Do not use \"DF0:\", \"DF1:\", \"DF2:\", "
  313.         "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
  314.         "\"WB_2.x:\", \"System3.0:\" or \"WB_3.x:\"!\n\n"
  315.         ))
  316.  
  317.     (set #memory_error (cat  "\n"
  318.         "There is not enough free disk space at the "
  319.         "device you have selected for the installation.\n\n"
  320.         "Free diskspace    " freediskspace "!\n"
  321.         "Diskspace needed  " size-komplett "!\n\n"
  322.         "Please select a another device or harddisk!"
  323.         ))
  324.  
  325. (if (= @language "deutsch") (
  326.  
  327.     (set #dir_error (cat  "\n"
  328.         "Bei Ihrer Auswahl \"" folder "\" handelt es "
  329.         "sich nicht um eine gültige Schublade!\n\n"
  330.         "Sie können über das Symbol 'Laufwerke anz.' "
  331.         "(bzw. 'Show drives') eine Übersicht über alle "
  332.         "Laufwerke Ihres Amiga anfordern; aus dieser "
  333.         "Übersicht sollten Sie nur die oberen, nicht "
  334.         "farblich gekennzeichneten Einträge auswählen. \n"
  335.         "Über den Schalter \"Neue Schublade anlegen..\" "
  336.         "können Sie ein neue Schublade erzeugen. Diese "
  337.         "neue Schublade wird auf der Partition "
  338.         "angelegt, die Sie soeben betrachten."
  339.         ))
  340.  
  341.     (set #memory_error (cat  "\n"
  342.         "Auf der ausgewählten Festplattenpartition "
  343.         "steht nicht genügend freier Speicher für die "
  344.         "komplette Installation des Compilersystems zur "
  345.         "Verfügung.\n\n"
  346.         "Freier Speicher " freediskspace "!\n"
  347.         "Benötigter Speicher " size-komplett "!\n\n"
  348.         "Bitte wählen Sie eine andere Partition, auf "
  349.         "der entsprechende Kapazitäten vorhanden sind!"
  350.         ))
  351. ))
  352.  
  353.             ; // Ist der Dateiname leer oder endet mit einem ':' oder existiert unter
  354.             ; // diesem Namen kein Verzeichnis, wird eine Fehlermeldung angezeigt; andernfalls
  355.             ; // kann die Auswahl-Schleife beendet werden.
  356.             (if (or (or (or (<= (strlen folder) 0) (= (substr folder (- (strlen folder) 1) 1) ":")) (= (exists folder (noreq)) 0)) (= (getdiskspace folder) -1))
  357.                 (message #dir_error)  ; Fehler bei der Auswahl der Schublade
  358.                 ;else
  359.                 (
  360.                     (set freediskspace (getdiskspace folder))  ; // Der freie Speicher auf diesem Medium
  361.                     (if (< freediskspace size-komplett)
  362.                         (
  363.                         (user 1)
  364.                             (message #memory_error)  ; // nicht genügend freier Speicher
  365.                         )
  366.                      ;else
  367.                         (set ok 1)
  368.                     )
  369.                 )
  370.             )
  371.         )
  372.     )
  373. )
  374.  
  375. (makeassign "ArtEffect")
  376.  
  377. (user act-user-level)
  378.  
  379.  
  380. ; // Diskette 1 einlegen!
  381.  
  382. ;(askdisk
  383. ;    (prompt #prp-insert-disk1)
  384. ;    (help #askdir-help)
  385. ;    (dest "ArtEffect_Disk1")
  386. ;)
  387.  
  388. (complete 10)
  389.  
  390. ; // Lhx wird in die RAM-Disk kopiert, damit das Programm nicht jedesmal von Disk
  391. ; // geladen werden muß.
  392.  
  393. (makeassign "ArtEffect")
  394. (makeassign "ArtEffect" folder)
  395.  
  396. (copyfiles
  397.         (dest "RAM:")
  398.         (source source-lhx)
  399. )
  400.  
  401. ; // Handbuch auf Festplatte kopieren!
  402.  
  403. (copyfiles
  404.         (dest folder)
  405.         (source source-Guide)
  406.         (infos)
  407. )
  408.  
  409. ;(run "run Multiview ArtEffect:Liesmich")
  410.  
  411. ;=================== Alle 1. ArtEffect-Dateien =====================================================
  412. (complete 20)
  413.  
  414. ; Bildverarbeitung entpacken
  415.  
  416. (makeassign "lhex_temp" folder)
  417.  
  418.   (working #wrk_guidecrunch)
  419.   (set COMPERROR (run "ram:lhA -q -m x " archive-ArtEffect1 " lhex_temp:"))
  420.   (if  ( <> COMPERROR 0)
  421.      (message #decrunch_error)
  422.   )
  423.  
  424. (complete 40)
  425.  
  426. (if (<> @language "deutsch") (
  427.  
  428.                 ; Englishe Brushes entpacken
  429.  
  430.                 (makeassign "lhex_temp" folder)
  431.  
  432.                   (working #wrk_guidecrunch)
  433.                   (set COMPERROR (run "ram:lhA -q -m x " archive-ArtEffectBrushes " lhex_temp:"))
  434.                   (if  ( <> COMPERROR 0)
  435.                      (message #decrunch_error)
  436.                   )
  437. ))
  438.  
  439. (complete 50)
  440. ;==================================================================================
  441.  
  442. ; // Diskette 2 einlegen!
  443.  
  444. ;(askdisk
  445. ;    (prompt #prp-insert-disk2)
  446. ;    (help #askdir-help)
  447. ;    (dest "ArtEffect_Disk2")
  448. ;)
  449.  
  450. ;=================== Alle 2. ArtEffect-Dateien =====================================================
  451.  
  452. ; Bildverarbeitung entpacken
  453.  
  454. (makeassign "lhex_temp" folder)
  455.  
  456.   (working #wrk_guidecrunch)
  457.   (set COMPERROR (run "ram:lhA -q -m x " archive-ArtEffect2 " lhex_temp:"))
  458.   (if  ( <> COMPERROR 0)
  459.      (message #decrunch_error)
  460.   )
  461.  
  462.  
  463. ;==================================================================================
  464.  
  465. (complete 80)
  466. ; BGUI.Library in die Libs-Schublade kopieren!
  467.  
  468. (set sourcelib (tackon folder "LIBS/BGUI.library"))
  469.  
  470. (copylib
  471.         (prompt #prp-copy-lib)
  472.         (help #hlp-copy-lib)
  473.         (source sourcelib)
  474.         (dest "LIBS:")
  475.         (confirm)
  476. )
  477.  
  478. (complete 80)
  479.  
  480. (if (<> @language "deutsch") (  ; Falls english installiert wird!
  481.  
  482. (set sourcepict (tackon folder "Pictures/Apfel.jpg"))
  483. (set destpict   (tackon folder "Pictures/Apple.jpg"))
  484.  
  485.                 (if (= (exists sourcepict) 1)
  486.                      (
  487.                      (rename sourcepict destpict)
  488.                      )
  489.                 )
  490.  
  491. (set sourcepict (tackon folder "Pictures/Gemüse.jpg"))
  492. (set destpict   (tackon folder "Pictures/Vegetables.jpg"))
  493.  
  494.                 (if (= (exists sourcepict) 1)
  495.                      (
  496.                      (rename sourcepict destpict)
  497.                      )
  498.                 )
  499.  
  500. (set sourcepict (tackon folder "Pictures/DiaFilm.jpg"))
  501. (set destpict   (tackon folder "Pictures/FilmFrame.jpg"))
  502.  
  503.                 (if (= (exists sourcepict) 1)
  504.                      (
  505.                      (rename sourcepict destpict)
  506.                      )
  507.                 )
  508.  
  509. (set sourcepict (tackon folder "Pictures/Strand_320.jpg"))
  510. (set destpict   (tackon folder "Pictures/Beach_320.jpg"))
  511.  
  512.                 (if (= (exists sourcepict) 1)
  513.                      (
  514.                      (rename sourcepict destpict)
  515.                      )
  516.                 )
  517.  
  518. (set sourcepict (tackon folder "Pictures/Sommer96.jpg"))
  519. (set destpict   (tackon folder "Pictures/Summer96.jpg"))
  520.  
  521.                 (if (= (exists sourcepict) 1)
  522.                      (
  523.                      (rename sourcepict destpict)
  524.                      )
  525.                 )
  526. ))
  527.  
  528. (complete 95)
  529.  
  530. ; ------- STARTUP ÄNDERN
  531.  
  532. (set command1 (cat  "ASSIGN ArtEffect: " folder))
  533.  
  534.  
  535. (set command1.txt
  536.         (cat "\n\n\nTo get ArtEffect work right there has to be made "
  537.         "some changes to your User-Startup !\n\n"
  538.         command1
  539.         )
  540. )
  541.  
  542. (if (= @language "deutsch") (
  543.  
  544. (set command1.txt
  545.         (cat "\n\n\nUm mit ArtEffect richtig arbeiten zu können, muß "
  546.         "eine Änderung an der User-Startup vorgenommen werden.\n\n"
  547.         command1
  548.         )
  549. )
  550. ))
  551.  
  552. (startup "ArtEffect"
  553.         (prompt command1.txt)
  554.         (help #help-startup)
  555.         (command command1)
  556. )
  557.  
  558. (makeassign "ArtEffect")
  559. ;(makeassign "ArtEffect" (pathonly @icon))
  560. (makeassign "ArtEffect" folder)
  561.  
  562. (delete "RAM:LhA")
  563.  
  564. (complete 100)
  565.  
  566. ; ------- FERTIG
  567.  
  568. (set #endnow (cat "Installation of ArtEffect completed.\n\n"
  569.     "When the line:\n\n" command1 "\n\n has not been added "
  570.     "to your User-Startup or Startup-Sequence, "
  571.     "please do that manually.\n\n"
  572.     "Best wishes...\n\n"
  573.     "HAAGE & PARTNER Computer GmbH, Germany"
  574.     ))
  575.  
  576. (if (= @language "deutsch") (
  577.  
  578.     (set #endnow (cat "\nInstallation von ArtEffect beendet.\n\n"
  579.         "Falls die Zeile:\n\n" command1 "\n\n nicht in Ihre User-Startup bzw. "
  580.         "Startup-Sequence eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
  581.         "\n\nWir wünschen ihnen viel Erfolg mit ArtEffect!\n\n"
  582.         "HAAGE & PARTNER Computer GmbH"
  583.     ))
  584. ))
  585.  
  586. (message #endnow)
  587.